home *** CD-ROM | disk | FTP | other *** search
/ Software USA 5 #5 / Software USA Volume 5.05.iso / pc / homeoff / zilch / install / _setup.1 / Zilchs21.exe / 0 / RCDATA / TMAINFORM / TMAINFORM.txt
Text File  |  1999-01-30  |  26KB  |  1,031 lines
  1. object MainForm: TMainForm
  2.   Left = 252
  3.   Top = 190
  4.   AutoScroll = False
  5.   Caption = 'Zilch'
  6.   ClientHeight = 434
  7.   ClientWidth = 632
  8.   Ctl3D = False
  9.   Color = clBtnText
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   Menu = MainMenu
  16.   Position = poScreenCenter
  17.   ShowHint = True
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   PixelsPerInch = 96
  23.   TextHeight = 16
  24.   object TopPanel1: TPanel
  25.     Left = 0
  26.     Top = 0
  27.     Width = 632
  28.     Height = 55
  29.     Align = alTop
  30.     BevelInner = bvLowered
  31.     Ctl3D = False
  32.     ParentCtl3D = False
  33.     TabOrder = 0
  34.     object cboxStartMonth: TComboBox
  35.       Left = 16
  36.       Top = 22
  37.       Width = 49
  38.       Height = 21
  39.       Hint = 'Month you start your repayment plan'
  40.       TabStop = False
  41.       Style = csDropDownList
  42.       Ctl3D = False
  43.       DropDownCount = 12
  44.       Font.Charset = DEFAULT_CHARSET
  45.       Font.Color = clBlack
  46.       Font.Height = -11
  47.       Font.Name = 'MS Sans Serif'
  48.       Font.Style = [fsBold]
  49.       ItemHeight = 13
  50.       Items.Strings = (
  51.         'Jan'
  52.         'Feb'
  53.         'Mar'
  54.         'Apr'
  55.         'May'
  56.         'Jun'
  57.         'Jul'
  58.         'Aug'
  59.         'Sep'
  60.         'Oct'
  61.         'Nov'
  62.         'Dec')
  63.       ParentCtl3D = False
  64.       ParentFont = False
  65.       ParentShowHint = False
  66.       ShowHint = True
  67.       TabOrder = 0
  68.       OnChange = cboxStartMonthChange
  69.     end
  70.     object cboxStrategy: TComboBox
  71.       Left = 158
  72.       Top = 22
  73.       Width = 183
  74.       Height = 21
  75.       Hint = 'Entries sorted by annual percentage rate'
  76.       TabStop = False
  77.       Style = csDropDownList
  78.       Font.Charset = DEFAULT_CHARSET
  79.       Font.Color = clBlack
  80.       Font.Height = -11
  81.       Font.Name = 'MS Sans Serif'
  82.       Font.Style = [fsBold]
  83.       ItemHeight = 13
  84.       Items.Strings = (
  85.         'Annual Percentage Rate'
  86.         'Quick Elimination'
  87.         'Custom Arrangement'
  88.         'Lowest Balance First'
  89.         'Highest Balance First'
  90.         'Lowest Payment First'
  91.         'Highest Payment First')
  92.       ParentFont = False
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.       TabOrder = 2
  96.       OnChange = cboxStrategyChange
  97.     end
  98.     object cboxPlan: TComboBox
  99.       Left = 513
  100.       Top = 22
  101.       Width = 97
  102.       Height = 21
  103.       Hint = 'Pledge Money used immediately'
  104.       TabStop = False
  105.       Style = csDropDownList
  106.       Font.Charset = DEFAULT_CHARSET
  107.       Font.Color = clBlack
  108.       Font.Height = -11
  109.       Font.Name = 'MS Sans Serif'
  110.       Font.Style = [fsBold]
  111.       ItemHeight = 13
  112.       Items.Strings = (
  113.         'Immediate'
  114.         'Deferred')
  115.       ParentFont = False
  116.       ParentShowHint = False
  117.       ShowHint = True
  118.       TabOrder = 4
  119.       OnChange = cboxPlanChange
  120.     end
  121.     object btnPledgeMoney: TButton
  122.       Left = 384
  123.       Top = 21
  124.       Width = 89
  125.       Height = 22
  126.       Hint = 'Click to change Pledge Money amount'
  127.       Caption = '$1000'
  128.       Font.Charset = DEFAULT_CHARSET
  129.       Font.Color = clBlack
  130.       Font.Height = -11
  131.       Font.Name = 'MS Sans Serif'
  132.       Font.Style = [fsBold]
  133.       ParentFont = False
  134.       ParentShowHint = False
  135.       ShowHint = True
  136.       TabOrder = 3
  137.       TabStop = False
  138.       OnClick = btnPledgeMoneyClick
  139.     end
  140.     object TopPanelLabels: TPanel
  141.       Left = 2
  142.       Top = 2
  143.       Width = 628
  144.       Height = 18
  145.       Align = alTop
  146.       BevelOuter = bvNone
  147.       Font.Charset = DEFAULT_CHARSET
  148.       Font.Color = clBlack
  149.       Font.Height = -11
  150.       Font.Name = 'Arial'
  151.       Font.Style = [fsBold]
  152.       ParentColor = True
  153.       ParentFont = False
  154.       TabOrder = 5
  155.       object TopPanelLabelMonth: TPanel
  156.         Left = 0
  157.         Top = 0
  158.         Width = 99
  159.         Height = 18
  160.         Align = alLeft
  161.         Alignment = taRightJustify
  162.         BevelOuter = bvNone
  163.         Caption = 'Start Month '
  164.         Font.Charset = DEFAULT_CHARSET
  165.         Font.Color = clBlack
  166.         Font.Height = -11
  167.         Font.Name = 'Arial'
  168.         Font.Style = [fsBold]
  169.         ParentColor = True
  170.         ParentFont = False
  171.         TabOrder = 0
  172.       end
  173.       object TopPanelLabelStrategy: TPanel
  174.         Left = 99
  175.         Top = 0
  176.         Width = 194
  177.         Height = 18
  178.         Align = alLeft
  179.         Alignment = taRightJustify
  180.         BevelOuter = bvNone
  181.         Caption = 'Payoff Strategy '
  182.         Font.Charset = DEFAULT_CHARSET
  183.         Font.Color = clBlack
  184.         Font.Height = -11
  185.         Font.Name = 'Arial'
  186.         Font.Style = [fsBold]
  187.         ParentColor = True
  188.         ParentFont = False
  189.         TabOrder = 1
  190.       end
  191.       object TopPanelLabelPledge: TPanel
  192.         Left = 293
  193.         Top = 0
  194.         Width = 176
  195.         Height = 18
  196.         Align = alLeft
  197.         Alignment = taRightJustify
  198.         BevelOuter = bvNone
  199.         Caption = 'Pledge Money '
  200.         Font.Charset = DEFAULT_CHARSET
  201.         Font.Color = clBlack
  202.         Font.Height = -11
  203.         Font.Name = 'Arial'
  204.         Font.Style = [fsBold]
  205.         ParentColor = True
  206.         ParentFont = False
  207.         TabOrder = 2
  208.       end
  209.       object TopPanelLabelPlan: TPanel
  210.         Left = 469
  211.         Top = 0
  212.         Width = 140
  213.         Height = 18
  214.         Align = alLeft
  215.         Alignment = taRightJustify
  216.         BevelOuter = bvNone
  217.         Caption = 'Repayment Plan '
  218.         Font.Charset = DEFAULT_CHARSET
  219.         Font.Color = clBlack
  220.         Font.Height = -11
  221.         Font.Name = 'Arial'
  222.         Font.Style = [fsBold]
  223.         ParentColor = True
  224.         ParentFont = False
  225.         TabOrder = 3
  226.       end
  227.     end
  228.     object cboxStartYear: TComboBox
  229.       Left = 72
  230.       Top = 22
  231.       Width = 54
  232.       Height = 21
  233.       Hint = 'Year you start your repayment plan'
  234.       TabStop = False
  235.       Style = csDropDownList
  236.       Ctl3D = False
  237.       DropDownCount = 7
  238.       Font.Charset = DEFAULT_CHARSET
  239.       Font.Color = clBlack
  240.       Font.Height = -11
  241.       Font.Name = 'MS Sans Serif'
  242.       Font.Style = [fsBold]
  243.       ItemHeight = 13
  244.       Items.Strings = (
  245.         '1990'
  246.         '1991'
  247.         '1992'
  248.         '1993'
  249.         '1994'
  250.         '1995'
  251.         '1996'
  252.         '1997'
  253.         '1998'
  254.         '1999'
  255.         '2000'
  256.         '2001'
  257.         '2002'
  258.         '2003'
  259.         '2004'
  260.         '2005'
  261.         '2006'
  262.         '2007'
  263.         '2008'
  264.         '2009'
  265.         '2010'
  266.         '2011'
  267.         '2012'
  268.         '2013'
  269.         '2014'
  270.         '2015'
  271.         '2016'
  272.         '2017'
  273.         '2018'
  274.         '2019'
  275.         '2020'
  276.         '2021'
  277.         '2022'
  278.         '2023'
  279.         '2024'
  280.         '2025')
  281.       ParentCtl3D = False
  282.       ParentFont = False
  283.       ParentShowHint = False
  284.       ShowHint = True
  285.       TabOrder = 1
  286.       OnChange = cboxStartYearChange
  287.     end
  288.   end
  289.   object MiddlePanel: TPanel
  290.     Left = 0
  291.     Top = 55
  292.     Width = 632
  293.     Height = 360
  294.     Align = alClient
  295.     BevelInner = bvLowered
  296.     Color = clBackground
  297.     Ctl3D = True
  298.     Font.Charset = DEFAULT_CHARSET
  299.     Font.Color = clBlack
  300.     Font.Height = -11
  301.     Font.Name = 'System'
  302.     Font.Style = [fsBold]
  303.     ParentCtl3D = False
  304.     ParentFont = False
  305.     TabOrder = 1
  306.     object Image1: TImage
  307.       Left = 2
  308.       Top = 2
  309.       Width = 628
  310.       Height = 356
  311.       Align = alClient
  312.       Stretch = True
  313.     end
  314.     object Panel7: TPanel
  315.       Left = 41
  316.       Top = 15
  317.       Width = 493
  318.       Height = 22
  319.       BevelOuter = bvNone
  320.       Color = clBlack
  321.       TabOrder = 15
  322.     end
  323.     object Panel6: TPanel
  324.       Left = 15
  325.       Top = 213
  326.       Width = 519
  327.       Height = 17
  328.       BevelOuter = bvNone
  329.       Color = clBlack
  330.       TabOrder = 14
  331.     end
  332.     object Panel5: TPanel
  333.       Left = 15
  334.       Top = 44
  335.       Width = 535
  336.       Height = 162
  337.       BevelOuter = bvNone
  338.       Color = clBlack
  339.       TabOrder = 13
  340.     end
  341.     object sgridCreditorInfo: TStringGrid
  342.       Left = 10
  343.       Top = 40
  344.       Width = 536
  345.       Height = 162
  346.       ColCount = 6
  347.       DefaultColWidth = 24
  348.       DefaultRowHeight = 22
  349.       RowCount = 30
  350.       FixedRows = 0
  351.       Font.Charset = DEFAULT_CHARSET
  352.       Font.Color = clBlack
  353.       Font.Height = -13
  354.       Font.Name = 'System'
  355.       Font.Style = [fsBold]
  356.       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking]
  357.       ParentFont = False
  358.       ScrollBars = ssVertical
  359.       TabOrder = 0
  360.       OnClick = sgridCreditorInfoClick
  361.       ColWidths = (
  362.         24
  363.         141
  364.         41
  365.         102
  366.         102
  367.         103)
  368.     end
  369.     object StringGridLabels: TPanel
  370.       Left = 38
  371.       Top = 10
  372.       Width = 493
  373.       Height = 24
  374.       Alignment = taRightJustify
  375.       BevelInner = bvLowered
  376.       Caption = 'StringGridLabels'
  377.       Font.Charset = DEFAULT_CHARSET
  378.       Font.Color = clBlack
  379.       Font.Height = -11
  380.       Font.Name = 'Arial'
  381.       Font.Style = [fsBold]
  382.       ParentFont = False
  383.       TabOrder = 1
  384.       object StringGridLabelCreditorName: TPanel
  385.         Left = 2
  386.         Top = 2
  387.         Width = 138
  388.         Height = 20
  389.         Align = alLeft
  390.         BevelInner = bvRaised
  391.         BevelOuter = bvLowered
  392.         Caption = 'Creditor Name'
  393.         TabOrder = 0
  394.       end
  395.       object StringGridLabelAPR: TPanel
  396.         Left = 140
  397.         Top = 2
  398.         Width = 42
  399.         Height = 20
  400.         Align = alLeft
  401.         BevelInner = bvRaised
  402.         BevelOuter = bvLowered
  403.         Caption = 'APR'
  404.         TabOrder = 1
  405.       end
  406.       object StringGridLabelCurrentBalance: TPanel
  407.         Left = 182
  408.         Top = 2
  409.         Width = 103
  410.         Height = 20
  411.         Align = alLeft
  412.         BevelInner = bvRaised
  413.         BevelOuter = bvLowered
  414.         Caption = 'Current Balance'
  415.         TabOrder = 2
  416.       end
  417.       object StringGridLabelMonthlyPmt: TPanel
  418.         Left = 285
  419.         Top = 2
  420.         Width = 103
  421.         Height = 20
  422.         Align = alLeft
  423.         BevelInner = bvRaised
  424.         BevelOuter = bvLowered
  425.         Caption = 'Monthly Pmt'
  426.         TabOrder = 3
  427.       end
  428.       object StringGridLabelPaymentCap: TPanel
  429.         Left = 388
  430.         Top = 2
  431.         Width = 103
  432.         Height = 20
  433.         Align = alLeft
  434.         BevelInner = bvRaised
  435.         BevelOuter = bvLowered
  436.         Caption = 'Minimum Pmt'
  437.         TabOrder = 4
  438.       end
  439.     end
  440.     object btnAdd: TButton
  441.       Left = 557
  442.       Top = 44
  443.       Width = 66
  444.       Height = 22
  445.       Hint = 'Adds a new record'
  446.       Caption = 'Add...'
  447.       Font.Charset = DEFAULT_CHARSET
  448.       Font.Color = clBlack
  449.       Font.Height = -11
  450.       Font.Name = 'MS Sans Serif'
  451.       Font.Style = [fsBold]
  452.       ParentFont = False
  453.       ParentShowHint = False
  454.       ShowHint = True
  455.       TabOrder = 2
  456.       OnClick = btnAddClick
  457.     end
  458.     object btnEdit: TButton
  459.       Left = 557
  460.       Top = 70
  461.       Width = 66
  462.       Height = 22
  463.       Hint = 'Changes the highlited record'
  464.       Caption = 'Edit...'
  465.       Font.Charset = DEFAULT_CHARSET
  466.       Font.Color = clBlack
  467.       Font.Height = -11
  468.       Font.Name = 'MS Sans Serif'
  469.       Font.Style = [fsBold]
  470.       ParentFont = False
  471.       ParentShowHint = False
  472.       ShowHint = True
  473.       TabOrder = 3
  474.       OnClick = btnEditClick
  475.     end
  476.     object btnMoveUp: TButton
  477.       Left = 557
  478.       Top = 151
  479.       Width = 66
  480.       Height = 22
  481.       Hint = 'Moves the highlighted record up one row'
  482.       Caption = 'Move Up'
  483.       Font.Charset = DEFAULT_CHARSET
  484.       Font.Color = clBlack
  485.       Font.Height = -11
  486.       Font.Name = 'MS Sans Serif'
  487.       Font.Style = [fsBold]
  488.       ParentFont = False
  489.       ParentShowHint = False
  490.       ShowHint = True
  491.       TabOrder = 4
  492.       OnClick = btnMoveUpClick
  493.     end
  494.     object btnMoveDn: TButton
  495.       Left = 557
  496.       Top = 179
  497.       Width = 66
  498.       Height = 22
  499.       Hint = 'Moves the highlighted record down one row'
  500.       Caption = 'Move Dn'
  501.       Font.Charset = DEFAULT_CHARSET
  502.       Font.Color = clBlack
  503.       Font.Height = -11
  504.       Font.Name = 'MS Sans Serif'
  505.       Font.Style = [fsBold]
  506.       ParentFont = False
  507.       ParentShowHint = False
  508.       ShowHint = True
  509.       TabOrder = 5
  510.       OnClick = btnMoveDnClick
  511.     end
  512.     object btnDelete: TButton
  513.       Left = 557
  514.       Top = 96
  515.       Width = 66
  516.       Height = 22
  517.       Hint = 'Deletes the highlighted record'
  518.       Caption = 'Delete'
  519.       Font.Charset = DEFAULT_CHARSET
  520.       Font.Color = clBlack
  521.       Font.Height = -11
  522.       Font.Name = 'MS Sans Serif'
  523.       Font.Style = [fsBold]
  524.       ParentFont = False
  525.       ParentShowHint = False
  526.       ShowHint = True
  527.       TabOrder = 6
  528.       OnClick = btnDeleteClick
  529.     end
  530.     object TotalBar: TPanel
  531.       Left = 11
  532.       Top = 210
  533.       Width = 520
  534.       Height = 17
  535.       Font.Charset = DEFAULT_CHARSET
  536.       Font.Color = clBlack
  537.       Font.Height = -11
  538.       Font.Name = 'Arial'
  539.       Font.Style = [fsBold]
  540.       ParentFont = False
  541.       TabOrder = 7
  542.       object TotalBarCreditors: TPanel
  543.         Left = 1
  544.         Top = 1
  545.         Width = 26
  546.         Height = 15
  547.         Align = alLeft
  548.         BevelInner = bvLowered
  549.         BevelOuter = bvNone
  550.         Caption = '0'
  551.         Font.Charset = ANSI_CHARSET
  552.         Font.Color = clBlack
  553.         Font.Height = -11
  554.         Font.Name = 'MS Sans Serif'
  555.         Font.Style = [fsBold]
  556.         ParentFont = False
  557.         TabOrder = 0
  558.       end
  559.       object TotalBarDescription: TPanel
  560.         Left = 27
  561.         Top = 1
  562.         Width = 182
  563.         Height = 15
  564.         Align = alLeft
  565.         BevelOuter = bvNone
  566.         Caption = 'Totals'
  567.         Font.Charset = ANSI_CHARSET
  568.         Font.Color = clBlack
  569.         Font.Height = -11
  570.         Font.Name = 'MS Sans Serif'
  571.         Font.Style = [fsBold]
  572.         ParentFont = False
  573.         TabOrder = 1
  574.       end
  575.       object TotalBarBalance: TPanel
  576.         Left = 209
  577.         Top = 1
  578.         Width = 103
  579.         Height = 15
  580.         Align = alLeft
  581.         Alignment = taRightJustify
  582.         BevelInner = bvLowered
  583.         BevelOuter = bvNone
  584.         Caption = '$0.00 '
  585.         Font.Charset = ANSI_CHARSET
  586.         Font.Color = clBlack
  587.         Font.Height = -11
  588.         Font.Name = 'MS Sans Serif'
  589.         Font.Style = [fsBold]
  590.         ParentFont = False
  591.         TabOrder = 2
  592.       end
  593.       object TotalBarPayment: TPanel
  594.         Left = 312
  595.         Top = 1
  596.         Width = 103
  597.         Height = 15
  598.         Align = alLeft
  599.         Alignment = taRightJustify
  600.         BevelInner = bvLowered
  601.         BevelOuter = bvNone
  602.         Caption = '$0.00 '
  603.         Font.Charset = ANSI_CHARSET
  604.         Font.Color = clBlack
  605.         Font.Height = -11
  606.         Font.Name = 'MS Sans Serif'
  607.         Font.Style = [fsBold]
  608.         ParentFont = False
  609.         TabOrder = 3
  610.       end
  611.     end
  612.     object btnSort: TButton
  613.       Left = 557
  614.       Top = 18
  615.       Width = 66
  616.       Height = 22
  617.       Hint = 'Sorts records by Payoff Strategy'
  618.       Caption = 'Sort'
  619.       Font.Charset = DEFAULT_CHARSET
  620.       Font.Color = clBlack
  621.       Font.Height = -11
  622.       Font.Name = 'MS Sans Serif'
  623.       Font.Style = [fsBold]
  624.       ParentFont = False
  625.       ParentShowHint = False
  626.       ShowHint = True
  627.       TabOrder = 8
  628.       OnClick = btnSortClick
  629.     end
  630.     object Panel1: TPanel
  631.       Left = 32
  632.       Top = 244
  633.       Width = 229
  634.       Height = 98
  635.       BevelOuter = bvNone
  636.       Color = clBlack
  637.       TabOrder = 9
  638.     end
  639.     object Panel2: TPanel
  640.       Left = 28
  641.       Top = 241
  642.       Width = 230
  643.       Height = 98
  644.       BevelInner = bvRaised
  645.       BorderStyle = bsSingle
  646.       Color = 15269887
  647.       Ctl3D = False
  648.       ParentCtl3D = False
  649.       TabOrder = 10
  650.       object Label2: TLabel
  651.         Left = 8
  652.         Top = 2
  653.         Width = 213
  654.         Height = 47
  655.         AutoSize = False
  656.         Caption = 
  657.           'Click this button to perform financial analysis and play "what-i' +
  658.           'f" on each debt listed above.'
  659.         Font.Charset = DEFAULT_CHARSET
  660.         Font.Color = clBlack
  661.         Font.Height = -12
  662.         Font.Name = 'Arial'
  663.         Font.Style = [fsBold]
  664.         ParentFont = False
  665.         WordWrap = True
  666.       end
  667.       object IndividualBtn: TButton
  668.         Left = 62
  669.         Top = 60
  670.         Width = 105
  671.         Height = 24
  672.         Caption = 'Debt Analysis'
  673.         Font.Charset = DEFAULT_CHARSET
  674.         Font.Color = clBlack
  675.         Font.Height = -11
  676.         Font.Name = 'MS Sans Serif'
  677.         Font.Style = [fsBold]
  678.         ParentFont = False
  679.         TabOrder = 0
  680.         OnClick = IndividualBtnClick
  681.       end
  682.     end
  683.     object Panel3: TPanel
  684.       Left = 379
  685.       Top = 244
  686.       Width = 229
  687.       Height = 98
  688.       BevelOuter = bvNone
  689.       Color = clBlack
  690.       TabOrder = 11
  691.     end
  692.     object Panel4: TPanel
  693.       Left = 375
  694.       Top = 241
  695.       Width = 230
  696.       Height = 98
  697.       BevelInner = bvRaised
  698.       BorderStyle = bsSingle
  699.       Color = 15269887
  700.       Ctl3D = False
  701.       ParentCtl3D = False
  702.       TabOrder = 12
  703.       object Label3: TLabel
  704.         Left = 8
  705.         Top = 2
  706.         Width = 213
  707.         Height = 47
  708.         AutoSize = False
  709.         Caption = 
  710.           'Click this button to formulate a rapid debt repayment plan on th' +
  711.           'e entire group of debts listed above.'
  712.         Font.Charset = DEFAULT_CHARSET
  713.         Font.Color = clBlack
  714.         Font.Height = -12
  715.         Font.Name = 'Arial'
  716.         Font.Style = [fsBold]
  717.         ParentFont = False
  718.         WordWrap = True
  719.       end
  720.       object MultipleBtn: TButton
  721.         Left = 62
  722.         Top = 60
  723.         Width = 105
  724.         Height = 24
  725.         Caption = 'Debt Reduction'
  726.         Font.Charset = DEFAULT_CHARSET
  727.         Font.Color = clBlack
  728.         Font.Height = -11
  729.         Font.Name = 'MS Sans Serif'
  730.         Font.Style = [fsBold]
  731.         ParentFont = False
  732.         TabOrder = 0
  733.         OnClick = MultipleBtnClick
  734.       end
  735.     end
  736.   end
  737.   object StatusBar: TPanel
  738.     Left = 0
  739.     Top = 415
  740.     Width = 632
  741.     Height = 19
  742.     Align = alBottom
  743.     BevelInner = bvLowered
  744.     Font.Charset = DEFAULT_CHARSET
  745.     Font.Color = clBlack
  746.     Font.Height = -11
  747.     Font.Name = 'Arial'
  748.     Font.Style = []
  749.     ParentFont = False
  750.     TabOrder = 2
  751.     object Label4: TLabel
  752.       Left = 403
  753.       Top = 2
  754.       Width = 56
  755.       Height = 14
  756.       Caption = 'Status Bar'
  757.       Font.Charset = DEFAULT_CHARSET
  758.       Font.Color = clBlack
  759.       Font.Height = -11
  760.       Font.Name = 'Arial'
  761.       Font.Style = [fsBold]
  762.       ParentFont = False
  763.     end
  764.     object StatusBarFileName: TPanel
  765.       Left = 2
  766.       Top = 2
  767.       Width = 216
  768.       Height = 15
  769.       Align = alLeft
  770.       Alignment = taRightJustify
  771.       BevelInner = bvRaised
  772.       BevelOuter = bvLowered
  773.       TabOrder = 0
  774.       object Label1: TLabel
  775.         Left = 4
  776.         Top = 0
  777.         Width = 22
  778.         Height = 14
  779.         Caption = ' File:'
  780.         Transparent = True
  781.       end
  782.     end
  783.     object StatusBarModified: TPanel
  784.       Left = 218
  785.       Top = 2
  786.       Width = 106
  787.       Height = 15
  788.       Align = alLeft
  789.       BevelInner = bvRaised
  790.       BevelOuter = bvLowered
  791.       TabOrder = 1
  792.     end
  793.   end
  794.   object MainMenu: TMainMenu
  795.     Left = 440
  796.     Top = 382
  797.     object menuFile: TMenuItem
  798.       Caption = '&File'
  799.       ShortCut = 32838
  800.       object menuNew: TMenuItem
  801.         Caption = '&New'
  802.         Hint = 'Clears the creditor information'
  803.         OnClick = menuNewClick
  804.       end
  805.       object menuOpen: TMenuItem
  806.         Caption = '&Open...'
  807.         Hint = 'Opens a Zilch Windows File (zwf]'
  808.         OnClick = menuOpenClick
  809.       end
  810.       object menuSeparator1: TMenuItem
  811.         Caption = '-'
  812.       end
  813.       object menuSave: TMenuItem
  814.         Caption = '&Save'
  815.         Hint = 'Saves the current file'
  816.         OnClick = menuSaveClick
  817.       end
  818.       object menuSaveAs: TMenuItem
  819.         Caption = 'Save &As...'
  820.         Hint = 'Saves the current file with a new name'
  821.         OnClick = menuSaveAsClick
  822.       end
  823.       object menuSeparator2: TMenuItem
  824.         Caption = '-'
  825.       end
  826.       object menuDelete: TMenuItem
  827.         Caption = '&Delete'
  828.         Hint = 'Lets you delete a Zilch Windows File (zwf)'
  829.         OnClick = menuDeleteClick
  830.       end
  831.       object menuSeparator3: TMenuItem
  832.         Caption = '-'
  833.       end
  834.       object menuExit: TMenuItem
  835.         Caption = 'E&xit'
  836.         Hint = 'Ends program'
  837.         ShortCut = 32883
  838.         OnClick = menuExitClick
  839.       end
  840.     end
  841.     object menuLoans: TMenuItem
  842.       Caption = 'Loans'
  843.       ShortCut = 32844
  844.       object menuLoanPayment: TMenuItem
  845.         Caption = 'Calculate Loan Payment...'
  846.         OnClick = menuLoanPaymentClick
  847.       end
  848.       object menuLoanPriceRange: TMenuItem
  849.         Caption = 'Calculate Price Range...'
  850.         OnClick = menuLoanPriceRangeClick
  851.       end
  852.       object menuCalculateRemainingBalance: TMenuItem
  853.         Caption = 'Calculate Remaining Balance...'
  854.         OnClick = menuCalculateRemainingBalanceClick
  855.       end
  856.     end
  857.     object menuInvestments: TMenuItem
  858.       Caption = 'Investments'
  859.       ShortCut = 32841
  860.       object menuFVLumpSum: TMenuItem
  861.         Caption = 'Future Value of Lump Sum...'
  862.         OnClick = menuFVLumpSumClick
  863.       end
  864.       object menuFVRegularDeposits: TMenuItem
  865.         Caption = 'Future Value of Regular Deposits...'
  866.         OnClick = menuFVRegularDepositsClick
  867.       end
  868.       object menuLumpSumForFV: TMenuItem
  869.         Caption = 'Lump Sum Required for Future Value...'
  870.         OnClick = menuLumpSumForFVClick
  871.       end
  872.       object menuRegularDepositsForFV: TMenuItem
  873.         Caption = 'Regular Deposits Required for Future Value...'
  874.         OnClick = menuRegularDepositsForFVClick
  875.       end
  876.     end
  877.     object Preferences2: TMenuItem
  878.       Caption = 'Preferences'
  879.       object BackgroundColor1: TMenuItem
  880.         Caption = 'Choose Background'
  881.         object MenuBgDenim: TMenuItem
  882.           Caption = 'Denim'
  883.           Checked = True
  884.           OnClick = MenuBgDenimClick
  885.         end
  886.         object MenuBgMint: TMenuItem
  887.           Caption = 'Mint'
  888.           OnClick = MenuBgMintClick
  889.         end
  890.         object MenuBgSlate: TMenuItem
  891.           Caption = 'Slate'
  892.           OnClick = MenuBgSlateClick
  893.         end
  894.         object MenuBgCoffee: TMenuItem
  895.           Caption = 'Coffee'
  896.           OnClick = MenuBgCoffeeClick
  897.         end
  898.         object MenuBgDusk: TMenuItem
  899.           Caption = 'Dusk'
  900.           OnClick = MenuBgDuskClick
  901.         end
  902.         object MenuBgForest: TMenuItem
  903.           Caption = 'Forest'
  904.           OnClick = MenuBgForestClick
  905.         end
  906.         object MenuBgPlum: TMenuItem
  907.           Caption = 'Plum'
  908.           OnClick = MenuBgPlumClick
  909.         end
  910.         object MenuBgNone: TMenuItem
  911.           Caption = 'None'
  912.           OnClick = MenuBgNoneClick
  913.         end
  914.       end
  915.       object Preferences1: TMenuItem
  916.         Caption = 'Currency Symbol'
  917.         object USDollarSign1: TMenuItem
  918.           Caption = '$  US Dollar Sign'
  919.           Checked = True
  920.           OnClick = USDollarSign1Click
  921.         end
  922.         object ImperialPoundSign1: TMenuItem
  923.           Caption = 'ÔøΩ  Imperial Pound Sign'
  924.           OnClick = ImperialPoundSign1Click
  925.         end
  926.       end
  927.       object N4: TMenuItem
  928.         Caption = '-'
  929.       end
  930.       object ReportShading: TMenuItem
  931.         Caption = 'Report Shading'
  932.         object rsGreen: TMenuItem
  933.           Caption = 'Light Green'
  934.           Checked = True
  935.           OnClick = rsGreenClick
  936.         end
  937.         object rsGray: TMenuItem
  938.           Caption = 'Light Gray'
  939.           OnClick = rsGrayClick
  940.         end
  941.         object rsNone: TMenuItem
  942.           Caption = 'No Shading'
  943.           OnClick = rsNoneClick
  944.         end
  945.       end
  946.       object ReportTitlePosition: TMenuItem
  947.         Caption = 'Report Title Position'
  948.         object rpLeft: TMenuItem
  949.           Caption = 'Left Justify'
  950.           Checked = True
  951.           OnClick = rpLeftClick
  952.         end
  953.         object rpCenter: TMenuItem
  954.           Caption = 'Centered'
  955.           OnClick = rpCenterClick
  956.         end
  957.       end
  958.       object ReportBuilderMenu: TMenuItem
  959.         Caption = 'Report Builder ...'
  960.         Visible = False
  961.         OnClick = ReportBuilderMenuClick
  962.       end
  963.       object ProVersion: TMenuItem
  964.         Caption = 'Professional Version'
  965.         Visible = False
  966.         OnClick = ProVersionClick
  967.       end
  968.     end
  969.     object menuHelp: TMenuItem
  970.       Caption = 'Help'
  971.       ShortCut = 32840
  972.       object Help1: TMenuItem
  973.         Caption = 'Contents'
  974.         OnClick = Help1Click
  975.       end
  976.       object FrequentlyAskedQuestions1: TMenuItem
  977.         Caption = 'Frequently Asked Questions'
  978.         OnClick = FrequentlyAskedQuestions1Click
  979.       end
  980.       object N1: TMenuItem
  981.         Caption = '-'
  982.       end
  983.       object menuAbout: TMenuItem
  984.         Caption = 'About...'
  985.         OnClick = menuAboutClick
  986.       end
  987.     end
  988.     object MenuOrder: TMenuItem
  989.       Caption = 'Order'
  990.       Hint = 'Fillout && print order form'
  991.       object PrintOrderForm1: TMenuItem
  992.         Caption = 'Print Order Form...'
  993.         OnClick = PrintOrderForm1Click
  994.       end
  995.       object N2: TMenuItem
  996.         Caption = '-'
  997.       end
  998.       object ToOrderByPhone1: TMenuItem
  999.         Caption = '    To Order By Phone'
  1000.       end
  1001.       object MenuPhoneNumber: TMenuItem
  1002.         Caption = '    Call (301) 932-7027'
  1003.       end
  1004.       object MonSat8am5pmEST1: TMenuItem
  1005.         Caption = 'Mon-Sat 8am-5pm [EST]'
  1006.       end
  1007.     end
  1008.   end
  1009.   object menuOpenFileDlg: TOpenDialog
  1010.     Filter = ' Zilch Files [*.zwf]|*.zwf'
  1011.     Options = [ofHideReadOnly, ofFileMustExist]
  1012.     Title = 'Open File'
  1013.     Left = 520
  1014.     Top = 382
  1015.   end
  1016.   object menuSaveFileDlg: TSaveDialog
  1017.     Filter = 'Zilch Files [*.zwf]|*.zwf'
  1018.     Options = [ofOverwritePrompt, ofHideReadOnly]
  1019.     Title = 'Save File As'
  1020.     Left = 480
  1021.     Top = 382
  1022.   end
  1023.   object menuDeleteFileDlg: TOpenDialog
  1024.     Filter = ' Zilch Files [*.ZWF]|*.zwf'
  1025.     Options = [ofHideReadOnly, ofFileMustExist]
  1026.     Title = 'Delete File'
  1027.     Left = 554
  1028.     Top = 382
  1029.   end
  1030. end
  1031.